home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / latexSmart.tcl < prev    next >
Text File  |  1996-01-15  |  4KB  |  178 lines
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexSmart.tcl (called from latex.tcl)
  5. #
  6. # Smart quotes, dots, subscripts, and superscripts
  7. #
  8. #############################################################################
  9. #
  10. # Original author unknown
  11. #
  12. # Maintainer:  Tom Scavo <trscavo@syr.edu>
  13. #
  14. #############################################################################
  15. #############################################################################
  16.  
  17. #--------------------------------------------------------------------------
  18. # Smart quotes:
  19. #--------------------------------------------------------------------------
  20.  
  21. proc smartDQuote {} {
  22.     global TeXmodeVars
  23.     if {[isSelection]} { deleteSelection }
  24.     if { !$TeXmodeVars(smartQuotes) || [literalChar] } { insertText {"}; return }
  25.     if {[leftQ]} {
  26.         insertText {``}
  27.     } else {
  28.         insertText {''}
  29.     }
  30. }
  31.  
  32. # bind double quote:
  33. ascii 0x22 <s> smartDQuote TeX
  34.  
  35. proc smartQuote {} {
  36.     global TeXmodeVars
  37.     if {[isSelection]} { deleteSelection }
  38.     if { !$TeXmodeVars(smartQuotes) || [literalChar]  } { insertText {'}; return }
  39.     if {[leftQ]} {
  40.         insertText {`}
  41.     } else {
  42.         insertText {'}
  43.     }
  44. }
  45.  
  46. # bind single quote:
  47. ascii 0x27 smartQuote TeX
  48.  
  49. proc leftQ {} {
  50.     if { [getPos] == 0 } { return 1 };
  51.     set q [lookAt [expr [getPos]-1]]
  52.     case $q in {
  53.         {\t}  {return 1}
  54.         {(}  {return 1}
  55.         {\{}  {return 1}
  56.         {[}  {return 1}
  57.         {<}  {return 1}
  58.         {\ } {return 1}
  59.         {\r} {return 1}
  60.     }
  61.     return 0
  62. }
  63.  
  64. #--------------------------------------------------------------------------
  65. # Smart dots:
  66. #--------------------------------------------------------------------------
  67.  
  68. proc smartDots {} {
  69.     global TeXmodeVars
  70.     if {[isSelection]} { deleteSelection }
  71.     if { !$TeXmodeVars(smartDots) || [literalChar] } { insertText {.}; return }
  72.     if {[lookAt [expr [set endPos [getPos]]-1]] == "."} then {
  73.         if {[lookAt [set begPos [expr $endPos-2]]] == "."} then {
  74.             replaceText $begPos $endPos "\\ldots"
  75.         } else {
  76.             insertText "."
  77.         }
  78.     } else {
  79.         insertText "."
  80.     }
  81. }
  82.  
  83. # bind period:
  84. ascii 0x2e smartDots "TeX"
  85.  
  86. #--------------------------------------------------------------------------
  87. # Smart subscripts and superscripts:
  88. #--------------------------------------------------------------------------
  89.  
  90. proc smartSubscripts {} {
  91.     smartScripts {_}
  92. }
  93.  
  94. proc smartSuperscripts {} {
  95.     smartScripts {^}
  96. }
  97.  
  98. proc smartScripts {char} {
  99.     global TeXmodeVars
  100.     if {[isSelection]} { deleteSelection }
  101.     if { !$TeXmodeVars(smartScripts) || [literalChar] } then {
  102.         insertText $char
  103.         return
  104.     }
  105.     if { $TeXmodeVars(smartScripts) } then {
  106.         if { $char == {_} } {subscript} {superscript}
  107.     }
  108. }
  109.  
  110. # bind underscore and caret:
  111. ascii 0x5f <s> smartSubscripts "TeX"
  112. ascii 0x5e <s> smartSuperscripts "TeX"
  113.  
  114. #--------------------------------------------------------------------------
  115. # Escapes and exceptions:
  116. #--------------------------------------------------------------------------
  117.  
  118. # proc literalChar {} {
  119. #     return [expr {[lookAt [expr [getPos] - 1]] == "\\"}]
  120. # }
  121. # 
  122. proc escapeSmartStuff {} {
  123.     if {![isSelection]} then {
  124.         set pos [getPos]
  125.         # Escape double quotes:
  126.         if { $pos > 1 } then {
  127.             set pos2 [expr $pos - 2]
  128.             if { [getText $pos2 $pos] == "''" } then {
  129.                 replaceText $pos2 $pos {"}
  130.                 return
  131.             } elseif { [getText $pos2 $pos] == "``" } then {
  132.                 replaceText $pos2 $pos {"}
  133.                 return
  134.             }
  135.         }
  136.         # Escape single quote:
  137.         if { $pos > 0 } then {
  138.             set pos1 [expr $pos - 1]
  139.             if { [lookAt $pos1] == "`" } then {
  140.                 backSpace
  141.                 insertText {'}
  142.                 return
  143.             }
  144.         }
  145.         # Escape dots:
  146.         if { $pos > 5 } then {
  147.             set pos6 [expr $pos - 6]
  148.             if { [getText $pos6 $pos] == "\\ldots" } then {
  149.                 replaceText $pos6 $pos {...}
  150.                 return
  151.             }
  152.         }
  153.         # Escape underscore:
  154.         if { $pos > 1 && [maxPos] > [expr $pos + 1] } then {
  155.             set begPos [expr $pos - 2]
  156.             set endPos [expr $pos + 2]
  157.             if { [getText $begPos $endPos] == "_\{\}Ñ" } then {
  158.                 replaceText $begPos $endPos {_}
  159.                 return
  160.             }
  161.         }
  162.         # Escape caret:
  163.         if { $pos > 1 && [maxPos] > [expr $pos + 1] } then {
  164.             set begPos [expr $pos - 2]
  165.             set endPos [expr $pos + 2]
  166.             if { [getText $begPos $endPos] == "^\{\}Ñ" } then {
  167.                 replaceText $begPos $endPos {^}
  168.                 return
  169.             }
  170.         }
  171.     }
  172.     backSpace
  173. }
  174.  
  175. # bind delete key:
  176. ascii 0x08 escapeSmartStuff "TeX"
  177.  
  178.